home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok83.lha / SetMode / SetModeTest.mod < prev    next >
Encoding:
Text File  |  1993-08-15  |  914 b   |  36 lines
  1. (*----------------------------------------------------------------------------
  2.  :Program.     SetModeTest.mod
  3.  :Author.      Christian Stiens
  4.  :Address.     Snail-Mail:           E-Mail:
  5.  :Address.     Heustiege 2           FIDO: 2:245/5802
  6.  :Address.     W-4710 Lüdinghausen   UUCP: Christian_Stiens@ouzonix.bo.open.de
  7.  :Copyright.   public domain
  8.  :Language.    Oberon-2
  9.  :Translator.  Amiga Oberon V2.45d (inofficial beta-version)
  10.  :Imports.     SetMode
  11. ----------------------------------------------------------------------------*)
  12.  
  13. MODULE setmodetest;
  14.  
  15.   IMPORT io, sm:=SetMode;
  16.  
  17.   VAR    ch: CHAR;
  18.  
  19. BEGIN
  20.  
  21.   IF sm.SetMode(io.out,1)=0 THEN END;
  22.  
  23.   io.WriteString("Please respond Yes or No.\n");
  24.   io.WriteString("Y/N> ");
  25.  
  26.   LOOP io.Read(ch); CASE CAP(ch) OF "Y","N": EXIT ELSE END END;
  27.  
  28.   io.Write(ch); io.WriteLn;
  29.  
  30.   IF sm.SetMode(io.out,0)=0 THEN END;
  31.  
  32.   io.WriteString("Thank You.\n");
  33.  
  34. END setmodetest.
  35.  
  36.